home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 41.zip
/
BS1 part 41
/
Crunchers pack v1.5.adf
/
THE BAND.S
< prev
Wrap
Text File
|
1978-10-22
|
1KB
|
64 lines
LEA.L L000003,A1
MOVE.L #$00000000,D0
MOVE.L $0004,A6
JSR -552(A6)
MOVE.L D0,L000004
MOVE.l $0080,D5
LEA.L L000005,A0
L000001:
MOVE.W (A0)+,D0
CMP.B D0,D5
BEQ L000002
ADDQ.L #4,A0
BRA.S L000001
L000002:
MOVE.L (A0),D1
CLR.L D2
CLR.L D3
MOVE.L L000004,A6
JSR -222(A6)
MOVE.L L000004,A1
MOVE.L $0004,A6
JSR -414(A6)
CLR.L D0
RTS
L000003:
dc.b "dos.library",0
L000004:
DC.B $00,$00,$00,$00
L000005:
DC.B $00,$00
DC.L L000006
DC.B $00,$01
DC.L L000007
DC.B $00,$02
DC.L L000008
DC.B $00,$03
DC.L L000009
DC.B $00,$04
DC.L L00000A
DC.B $00,$05
DC.L L00000B
DC.B $00,$06
DC.L L00000C
DC.B $00,$07
DC.L L00000D
DC.B $00,$08
DC.L L00000E
;DC.B $00,$09
;DC.L L00000F
L000006:dc.b "a",0
L000007:dc.b "b",0,0
L000008:dc.b "c2",0,0
L000009:dc.b "D",0
L00000A:dc.b "E",0,0
L00000B:dc.b "F",0
L00000C:dc.b "G",0
L00000D:dc.b "H",0
L00000E:dc.b "TYPE MENU",0